home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 96 / Amiga News 96.iso / amig_ad_os / amitex / arexx / adoc.amitex < prev    next >
Text File  |  1997-01-18  |  1KB  |  64 lines
  1. /* Demande de référence au programme ADoc. $VER: 1.00 © R.Florac 1996
  2.    Version 1.00     14 novembre 1996 */
  3.  
  4. options results
  5. port = ADDRESS()
  6.  
  7. address command
  8. if ~show(p, "ADoc_rexx") then do
  9.     'run > nil:' "DP:docs/ADoc AREXX FONT GoldEd10"     /* chargement du programme */
  10.     waitforport "ADoc_rexx"
  11. end
  12.  
  13. ADDRESS (port)
  14. cr='0a'x
  15.  
  16. 'BLOCK(0)'
  17. reference=result
  18.  
  19. if reference = 0 then do
  20.     'WORD(0)'                   /* Lecture du mot courant */
  21.     reference = result
  22.     if reference = "" then do
  23.     'ASK("Référence à chercher ?")'
  24.     reference=result
  25.     if reference="" then exit
  26.     end
  27. end
  28. else do
  29.     'TEXTMARK(-1)'
  30.     reference=result
  31. end
  32.  
  33. ADDRESS "ADoc_rexx"
  34. "FIND" reference
  35. if rc = 5 THEN DO
  36.     ADDRESS (port)
  37.     'SELECT("'reference' non trouvée.'cr'Chargement d''un fichier'cr'Requête fichier'cr'Abandonner")'
  38.     select                /* Version 1.02 */
  39.     when result = 1 then do
  40.         'ASK("Quel fichier voulez-vous'cr'ouvrir ?")'
  41.         fichier = result
  42.     end
  43.     when result = 2 then do
  44.         'REQFILE("Fichier doc à charger?")'
  45.         fichier = result
  46.     end
  47.     otherwise exit
  48.     end
  49.     if fichier="" then exit
  50.     ADDRESS "ADoc_rexx"
  51.     OPEN fichier
  52.     if rc=5 THEN DO
  53.     ADDRESS (port)
  54.     'MESSAGE("Fichier non trouvé")'
  55.     exit
  56.     END
  57.     FIND reference
  58. end
  59. if rc = 0 THEN TOFRONT
  60. ELSE do
  61.     ADDRESS (port)
  62.     'MESSAGE("Référence introuvable")'
  63. end
  64.